home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue39 / slimmer / D4C.LOG < prev    next >
Encoding:
Text File  |  1998-09-09  |  1.7 KB  |  35 lines
  1.  
  2. In D4, global Dynamic arrays adds code in the finally
  3. part to clean it up (DynArrayClear) (does not matter
  4. if they are used or not!).
  5.  
  6. Finalization:  AutoGlobalP := pointer(longint(@UnitGlobal)
  7. :0043B1BC55             push   ebp
  8. :0043B1BD 8BEC           mov    ebp,esp
  9. :0043B1BF 33C0           xor    eax,eax
  10. :0043B1C1 55             push   ebp
  11. :0043B1C2 6807B24300     push   0043B207                   
  12. :0043B1C7 64FF30         push   fs:dword ptr [eax]         
  13. :0043B1CA 648920         mov    fs:[eax],esp               
  14. :0043B1CD FF05F4D74300   inc    dword ptr [0043D7F4]       
  15. :0043B1D3 7524           jne    INITTEST.0043B1F9 (0043B1F9
  16. :0043B1D5 B8F0D74300     mov    eax,0043D7F0               
  17. :0043B1DA 83C004         add    eax,00000004               
  18. :0043B1DD A3ECD74300     mov    [0043D7EC],eax             
  19. testinit.35:  UnitGlobal := 0;                             
  20. :0043B1E2 33C0           xor    eax,eax                    
  21. :0043B1E4 A3F0D74300     mov    [0043D7F0],eax             
  22. :0043B1E9 B8E8D74300     mov    eax,0043D7E8               
  23. :0043B1EE 8B15A8B14300   mov    edx,[INITTEST.0043B1A8]    
  24. :0043B1F4 E8CF97FCFF     call   @DynArrayClear             
  25. :0043B1F9 33C0           xor    eax,eax                    
  26. :0043B1FB 5A             pop    edx                        
  27. :0043B1FC 59             pop    ecx
  28. :0043B1FD 59             pop    ecx                        
  29. :0043B1FE 648910         mov    fs:[eax],edx               
  30. :0043B201 680EB24300     push   0043B20E
  31. :0043B206 C3             ret                               
  32. :0043B207 E94080FCFF     jmp    @HandleFinally             
  33. :0043B20C EBF8           jmp    INITTEST.0043B206 (0043B206
  34. testinit.38: end.
  35.